10 POKE53280,6:POKE53281,6
20 PRINT"[147]         WOCHENTAGSBESTIMMUNG         "
30 PRINT" DATUM IN DER FORM TT.MM.JJJJ EINGEBEN"
40 INPUT" DATUM ";D$
50 T=VAL(MID$(D$,1,2)):M=VAL(MID$(D$,4,2)):J=VAL(MID$(D$,7,4))
60 IFT>31 OR M>12 THEN PRINT"  EINGABEFEHLER! ":GOTO 40
70 IFJ<1901 THEN PRINT"  EINGABEFEHLER! ":GOTO 40
80 GOSUB 190
90 D=D-7*INT(D/7)
100 FOR I=0 TO 6
110 READ W$(I)
120 NEXT I
130 PRINT" DER ";MID$(STR$(T),2,2)"."MID$(STR$(M),2,2);
140 PRINT"."MID$(STR$(J),2,4);
150 PRINT" IST EIN ";W$(D);".":RESTORE
160 INPUT" WEITER (J/N) ";A$
170 IFA$="J" THEN 20
180 END
190 D=INT((J-1901)*1461/4)+1+T+INT((158*M-157)/5)
200 D=D+(M>2)*(M-(INT(J/4)<J/4))
210 RETURN
220 DATA SONNTAG,MONTAG,DIENSTAG,MITTWOCH
230 DATA DONNERSTAG,FREITAG,SAMSTAG